home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib06.dsk / NFL TEAM NAME CREATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  26 lines
  1. 1  REM  ****************************
  2. 2  REM  *  NFL TEAM NAME CREATOR   *
  3. 3  REM  *   BY JOSEPH M FEEHAN     *
  4. 4  REM  *   COPYRIGHT (C) 1981     *
  5. 5  REM  *   BY MICRO-SPARC INC     *
  6. 6  REM  ****************************
  7. 10 D$ =  CHR$(4)
  8. 20  PRINT D$;"OPEN NFL.NAMES"
  9. 30  PRINT D$;"WRITE NFL.NAMES"
  10. 40  PRINT "ATLANTA": PRINT "BALTIMORE": PRINT "BUFFALO": PRINT "CHICAGO"
  11. 50  PRINT "CINCINNATI": PRINT "CLEVELAND": PRINT "DALLAS": PRINT "DENVER"
  12. 60  PRINT "DETROIT": PRINT "GREEN BAY": PRINT "HOUSTON": PRINT "KANSAS CITY"
  13. 70  PRINT "LOS ANGELES": PRINT "MIAMI": PRINT "MINNESOTA": PRINT "NEW ENGLAND"
  14. 80  PRINT "NEW ORLEANS": PRINT "NEW YORK GIANTS": PRINT "NEW YORK JETS": PRINT "OAKLAND"
  15. 90  PRINT "PHILADELPHIA": PRINT "PITTSBURGH": PRINT "ST LOUIS": PRINT "SAN DIEGO"
  16. 100  PRINT "SAN FRANCISCO": PRINT "SEATTLE": PRINT "TAMPA BAY": PRINT "WASHINGTON"
  17. 110  PRINT D$;"CLOSE NFL.NAMES"
  18. 120  PRINT D$;"LOCK NFL.NAMES"
  19. 190  END 
  20. 200 D$ =  CHR$(4)
  21. 210  PRINT D$;"OPEN NAME.MAKER.TEXT"
  22. 220  PRINT D$;"WRITE NAME.MAKER.TEXT"
  23. 230  POKE 33,30
  24. 240  LIST 10,120
  25. 250  PRINT D$;"CLOSE NAME.MAKER.TEXT"
  26. 260  TEXT : END